home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / splash / demovb.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-14  |  7.9 KB  |  236 lines
  1. VERSION 2.00
  2. Begin Form DEMO 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "SPLASH16.DLL Visual Basic Demo"
  6.    ClientHeight    =   5775
  7.    ClientLeft      =   3345
  8.    ClientTop       =   2445
  9.    ClientWidth     =   7095
  10.    Height          =   6180
  11.    Left            =   3285
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   5775
  15.    ScaleWidth      =   7095
  16.    Top             =   2100
  17.    Width           =   7215
  18.    Begin ComboBox Combo1 
  19.       Height          =   300
  20.       Left            =   3600
  21.       Style           =   2  'Dropdown List
  22.       TabIndex        =   19
  23.       Top             =   5400
  24.       Width           =   1215
  25.    End
  26.    Begin CommandButton Command2 
  27.       Caption         =   "&Display Splash - Windows Bitmap (BMP) File (Does not use AccuSoft DLL's)"
  28.       Height          =   375
  29.       Left            =   120
  30.       TabIndex        =   13
  31.       Top             =   4560
  32.       Width           =   6855
  33.    End
  34.    Begin TextBox Text1 
  35.       BackColor       =   &H00FFFFFF&
  36.       ForeColor       =   &H00000000&
  37.       Height          =   285
  38.       Left            =   2640
  39.       TabIndex        =   14
  40.       Text            =   "SPLASH.BMP"
  41.       Top             =   5040
  42.       Width           =   4335
  43.    End
  44.    Begin Frame Frame1 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   "All of these require a DLL from AccuSoft (See README.TXT)"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   3495
  49.       Left            =   120
  50.       TabIndex        =   16
  51.       Top             =   960
  52.       Width           =   6855
  53.       Begin OptionButton Option1 
  54.          BackColor       =   &H00FFFFFF&
  55.          Caption         =   "Use ACCU32I&F.DLL (Pro Gold)"
  56.          ForeColor       =   &H00000000&
  57.          Height          =   255
  58.          Index           =   1
  59.          Left            =   3480
  60.          TabIndex        =   12
  61.          Top             =   3180
  62.          Width           =   3255
  63.       End
  64.       Begin OptionButton Option1 
  65.          BackColor       =   &H00FFFFFF&
  66.          Caption         =   "Use &ACCUSOFT.DLL"
  67.          ForeColor       =   &H00000000&
  68.          Height          =   255
  69.          Index           =   0
  70.          Left            =   3480
  71.          TabIndex        =   11
  72.          Top             =   2880
  73.          Value           =   -1  'True
  74.          Width           =   3255
  75.       End
  76.       Begin CommandButton Command1 
  77.          Caption         =   "Display Splash With No Effect"
  78.          Height          =   375
  79.          Index           =   0
  80.          Left            =   120
  81.          TabIndex        =   0
  82.          Top             =   480
  83.          Width           =   3255
  84.       End
  85.       Begin CommandButton Command1 
  86.          Caption         =   "Display Splash With Top Wipe"
  87.          Height          =   375
  88.          Index           =   1
  89.          Left            =   120
  90.          TabIndex        =   1
  91.          Top             =   960
  92.          Width           =   3255
  93.       End
  94.       Begin CommandButton Command1 
  95.          Caption         =   "Display Splash With Bottom Wipe"
  96.          Height          =   375
  97.          Index           =   2
  98.          Left            =   120
  99.          TabIndex        =   2
  100.          Top             =   1440
  101.          Width           =   3255
  102.       End
  103.       Begin CommandButton Command1 
  104.          Caption         =   "Display Splash With Left Wipe"
  105.          Height          =   375
  106.          Index           =   3
  107.          Left            =   120
  108.          TabIndex        =   3
  109.          Top             =   1920
  110.          Width           =   3255
  111.       End
  112.       Begin CommandButton Command1 
  113.          Caption         =   "Display Splash With Right Wipe"
  114.          Height          =   375
  115.          Index           =   4
  116.          Left            =   120
  117.          TabIndex        =   4
  118.          Top             =   2400
  119.          Width           =   3255
  120.       End
  121.       Begin CommandButton Command1 
  122.          Caption         =   "Display Splash With Blinds"
  123.          Height          =   375
  124.          Index           =   5
  125.          Left            =   120
  126.          TabIndex        =   5
  127.          Top             =   2880
  128.          Width           =   3255
  129.       End
  130.       Begin CommandButton Command1 
  131.          Caption         =   "Display Splash With Blocks"
  132.          Height          =   375
  133.          Index           =   6
  134.          Left            =   3480
  135.          TabIndex        =   6
  136.          Top             =   480
  137.          Width           =   3255
  138.       End
  139.       Begin CommandButton Command1 
  140.          Caption         =   "Display Splash Center"
  141.          Height          =   375
  142.          Index           =   7
  143.          Left            =   3480
  144.          TabIndex        =   7
  145.          Top             =   960
  146.          Width           =   3255
  147.       End
  148.       Begin CommandButton Command1 
  149.          Caption         =   "Display Splash With Louvers"
  150.          Height          =   375
  151.          Index           =   8
  152.          Left            =   3480
  153.          TabIndex        =   8
  154.          Top             =   1440
  155.          Width           =   3255
  156.       End
  157.       Begin CommandButton Command1 
  158.          Caption         =   "Display Splash With Square Out"
  159.          Height          =   375
  160.          Index           =   9
  161.          Left            =   3480
  162.          TabIndex        =   9
  163.          Top             =   1920
  164.          Width           =   3255
  165.       End
  166.       Begin CommandButton Command1 
  167.          Caption         =   "Display Splash With Zig-Zag"
  168.          Height          =   375
  169.          Index           =   10
  170.          Left            =   3480
  171.          TabIndex        =   10
  172.          Top             =   2400
  173.          Width           =   3255
  174.       End
  175.    End
  176.    Begin Label Label2 
  177.       BackColor       =   &H00FFFFFF&
  178.       Caption         =   "Show Splash for how many seconds?"
  179.       ForeColor       =   &H00000000&
  180.       Height          =   255
  181.       Index           =   1
  182.       Left            =   120
  183.       TabIndex        =   18
  184.       Top             =   5415
  185.       Width           =   3375
  186.    End
  187.    Begin Label Label2 
  188.       BackColor       =   &H00FFFFFF&
  189.       Caption         =   "Splash Graphic File Name"
  190.       ForeColor       =   &H00000000&
  191.       Height          =   255
  192.       Index           =   0
  193.       Left            =   120
  194.       TabIndex        =   17
  195.       Top             =   5055
  196.       Width           =   2415
  197.    End
  198.    Begin Label Label1 
  199.       BackColor       =   &H00FFFFFF&
  200.       Caption         =   "This demo program shows the capabilties of SPLASH16.DLL. This Windows Dynamic Link Library allows you to display a splash, or startup, screen while your program initializes. This gives users immediate feedback to indicate that your program is initializing properly."
  201.       ForeColor       =   &H00000000&
  202.       Height          =   855
  203.       Left            =   120
  204.       TabIndex        =   15
  205.       Top             =   120
  206.       Width           =   7095
  207.    End
  208. Sub Command1_Click (Index As Integer)
  209. On Local Error Resume Next
  210. ' Determine which DLL to call
  211. Dim lpszDLLName As String
  212. If (Option1(0).Value <> 0) Then
  213.     lpszDLLName = "ACCUSOFT.DLL"
  214.     lpszDLLName = "ACCU32IF.DLL"
  215. End If
  216. ' Show splash screen passing Index as argument for effect
  217. x% = ShowSplashAnyFormat(Text1.Text, Index, lpszDLLName, Val(Combo1.Text))
  218. ' End the splash screen
  219. x% = EndSplash()
  220. End Sub
  221. Sub Command2_Click ()
  222. ' Show splash screen from a file
  223. x% = ShowSplashFromFile(Text1.Text, Val(Combo1.Text))
  224. ' End the splash screen
  225. x% = EndSplash()
  226. End Sub
  227. Sub Form_Load ()
  228. ' Fill time combo box
  229. For i = 0 To 10 Step 2
  230.     Combo1.AddItem (Str(i))
  231. Combo1.ListIndex = 0
  232. CurPath$ = CurDir$
  233. If Right(CurPath$, 1) <> "\" Then CurPath$ = CurPath$ + "\"
  234. Text1.Text = CurPath$ + "SPLASH.BMP"
  235. End Sub
  236.